﻿Namespace Display
    ''' <summary>
    ''' Simple class to create and hold an instance of each StatusLED to be used.
    ''' </summary>
    Public Class StatusManager

        Private mSystemStatus As StatusLED
        Private mNetworkStatus As StatusLED
        Private mPageStatus As StatusLED

        Public ReadOnly Property SystemStatus As StatusLED
            Get
                Return mSystemStatus
            End Get
        End Property

        Public ReadOnly Property NetworkStatus As StatusLED
            Get
                Return mNetworkStatus
            End Get
        End Property

        Public ReadOnly Property PageStatus As StatusLED
            Get
                Return mPageStatus
            End Get
        End Property

        Sub New()
            mSystemStatus = New StatusLED()
            mNetworkStatus = New StatusLED()
            mPageStatus = New StatusLED()
        End Sub

    End Class
End Namespace
